home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1994 December / PSL Monthly Shareware CD-ROM (Public Software Library)(December 1994).bin / prgmming / win / pascal / ti2000.asc < prev    next >
Text File  |  1993-03-23  |  2KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  Pascal                                NUMBER  :  2000
  9.   VERSION  :  7.0
  10.        OS  :  WINDOWS
  11.      DATE  :  March 23, 1993                           PAGE  :  1/1
  12.  
  13.     TITLE  :  Pause your code while you execute another app
  14.  
  15.  
  16.  
  17.  
  18.   Code which allows you to launch another Windows program and then
  19.   wait untilfore executing any more of your code.^@
  20.  
  21.      1.  {
  22.          Use this code to launch a second program from inside a
  23.          Turbo
  24.          Pascal for Windows program. It accepts the same parameters
  25.          as
  26.          WinExec, but will loop continuously until the launched
  27.          program
  28.          has terminated. This code exists because it is sometimes
  29.          necessary to launch a second program without executing any
  30.          more
  31.          code in your program. If you did not take this approach,
  32.          then
  33.          both programs would be executing simultaneously via
  34.          Windows
  35.          multitasking abilities. }
  36.  
  37.      2.  function WinExecAndWait(Path : Pchar; Visibility : word) :
  38.          word;
  39.          var
  40.          InstanceID : THandle;
  41.          Msg : TMSg;
  42.          begin
  43.          InstanceID := WinExec(Path,Visibility);
  44.          if InstanceID < 32 then { a value less than 32 indicates
  45.          an
  46.                    Exec error }
  47.          WinExecAndWait := InstanceID
  48.          else
  49.          repeat
  50.          while PeekMessage(Msg,0,0,0,PM_REMOVE) do
  51.          begin
  52.          if Msg.Message = WM_QUIT then
  53.            halt(Msg.wParam);
  54.          TranslateMessage(Msg);
  55.          DispatchMessage(Msg);
  56.          end;
  57.          until GetModuleUsage(InstanceID) = 0;
  58.          end;
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.   PRODUCT  :  Pascal                                NUMBER  :  2000
  75.   VERSION  :  7.0
  76.        OS  :  WINDOWS
  77.      DATE  :  March 23, 1993                           PAGE  :  2/1
  78.  
  79.     TITLE  :  Pause your code while you execute another app
  80.  
  81.  
  82.  
  83.  
  84.   DISCLAIMER: You have the right to use this technical information
  85.   subject to the terms of the No-Nonsense License Statement that
  86.   you received with the Borland product to which this information
  87.   pertains.
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.